home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / sf40_a.arc / TIME.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-12-09  |  212 b   |  10 lines
  1. 5  ZZ=0:UU=0:A=0:B=0
  2. 10  A=TIMER
  3. 20  FOR X=1 TO 1000:NEXT
  4. 30  B=TIMER
  5. 40  UU= B-A
  6. 60  IF UU <=0.4  AND UU >=0.2 THEN ZZ=3000
  7. 70  IF UU<=0.2  AND UU>=0.1 THEN ZZ=4000
  8. 75  IF UU<=0.1  AND UU>=0.01 THEN ZZ=5000
  9. 80  CHAIN "TEST1",,ALL
  10.